Option Explicit
Sub Q_Sample038()
    ']wޥζMicrosoft Shell Controls And Automation
    ']wޥζ Microsoft Scripting Runtime
    Dim mySh      As Shell32.Shell
    Dim myFldItem As Shell32.FolderItem
    Dim myFso     As Scripting.FileSystemObject
    Dim myDrive   As Scripting.Drive
    Dim i         As Long
    Set mySh = CreateObject("Shell.Application")
    Set myFso = CreateObject("Scripting.FileSystemObject")
    For Each myDrive In myFso.Drives
        If myDrive.DriveType = CDRom Then
            Set myFldItem = mySh.NameSpace(myDrive.Path).Items.Item
            myFldItem.InvokeVerb "hX(&J)"
    Exit For
        End If
    Next
    Set myFso = Nothing						'
    Set myFldItem = Nothing
    Set mySh = Nothing
End Sub
